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rDefaultParms 



5A00 



aControl 



rCommon 



aControl[sControlType] 



01 


iWorkAreaWidth 


02 


iWorkAreaHeight 


03 


rDisplayDisplace_X 


04 


rDisplayDisplace_Y 


05 


sFormat 


06 


iTitleBarHeight 


07 


iCascadeDisplace_X 


08 


iCascadeDisplace_Y 


09 


bCursorJump 


10 


rWAx/DZxRatio 


11 


rWAy/DZyRatio 


12 


bLikelyMaxDimensions 


13 


iMaxServices 


14 


(unused) 





rVar[Menu] 




rVarfToolBar] 




rVar[ListBox] 




rVar[Dialog] 




rVar[Other] 




rVar 


15 


iRegionHeight 


16 


iRegionsLimit 


17 


i Icon Width 


18 


iMaxLabelLength 


19 


iMaxKeyEquivLength 


20 


ilnterGap 


21 


iMaxNumGenerations 


22 


rFixedPointDisplace_X 


23 


rFixedPointDisplace_Y 


24 


iMaxShellWidth 


25 


iMaxSheliHeight 


26 


iMaxDisplayWidth 


27 


iMaxDisplayHeight 


28 


pBaseControlParms 


29 


iBaseShellWidth 


30 


iBaseShellHeight 


31 


iBaseDisplayWidth 


32 


iBaseDisplayHeight 
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rDisplayParms 



5B00 



aControl 



rCommon 



aControl[sControlType] 



01 


iWorkAreaWidth 


02 


iWorkAreaH eight 


03 


rDisplayDisplace_X 


04 


rDisplayDisplace_Y 


05 


s Form at 


06 


iTitleBarHeight 


07 


iCascadeDisplace_X 


08 


iCascadeDisplace_Y 


09 


bCursorJump 


10 


rWAx/DZxRatio 


11 


rWAy/DZyRatio 


12 


bLikelyMaxDimensions 


13 


iMaxServices 


14 


(unused) 





rVar[Menu] 




rVar[ToolBar] 




rVar[ListBox] 




rVar[Dialog] 




rVar[Other] 




rVar 


15 


iRegionHeight 


16 
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17 


i Icon Width 


18 


iMaxLabelLength 


19 
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20 
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21 


iMaxNumGenerations 


22 


rFixedPointDisplace_X 


23 


rFixedPointDisplace_Y 


24 


iMaxShellWidth 


25 


iMaxShellHeight 


26 


iMaxDisplayWidth 


27 


iMaxDisplayHeight 


28 
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32 
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DEFINITIONS 



rCommon: PARAMETER VALUES APPLICABLE TO ALL CONTROLS 

01 iWorkAreaWidth Width of implicit WorkArea. 

02 iWorkAreaHeight Height of implicit Work Area. 

03 rDisplayDisplace_X The per cent of one-half the work area width from which the reference corner 

of the maximim display is displaced from the Work Area center: 

- Positive displacement is toward the Display Zone center. 

- Negative displacement is away from the Display Zone center. 

04 rDisplayDisplace_Y The per cent of one-half the work area height from which the reference corner 

of the maximim display is displaced from the Work Area center. 

- Positive displacement is toward the Display Zone center. 

- Negative displacement is away from the Display Zone center. 

05 sFormat String identifying display format: "Traditional", "Spider", "Dialog" or "Other". 

06 iTitleBarHeight Height of title bar. 

07 iCascadeDisp!ace_X Horizontal displacement with which each successive ancestor of the control 

display is cascaded. 

08 iCascadeDisplace_Y Vertical displacement with which each successive of ancestorof the control 

display is cascaded. 

09 bJumpCursor Default disposal of cursor at termination of control display: 

- TRUE -> DO move cursor to cStartCurtsor coordinates. 

- FALSE-> DO NOT move cursor to cStartCurtsor coordinates. 

1 0 rWAx/DZxRatio Ratio of work-area/display-zone width that sets rDisplayDisplace_Y=0.0 and 

rDisplayDisplace_X=1.0; 

1 1 rWAz/DZzRatio Ratio of work-area/display-zone height that sets rDisplayDisplace_Y=1 .0 and 

rDisp!ayDisplace_X=0,0; 

12 bLikelyMaxDimensions TRUE -> User supplies dimensions of likely largest control display, 

FALSE -> User supplies dimensions of the absolutely maximum display. 

1 3 iMaxServices Maximum number of services that will ever ever requested during a Contra 

Subsystem activation. 
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DEFINITIONS (Continued) 



aControl[sFormat].rVar: PARAMETER VALUES SPECIFIC TO EACH CONTROL MANAGED 



Height of area of display in which an item or a group of items is displayed. 
Max number of different items or groups of related items appearing on any 
single display. 
Width of any icon present. 
Maximum length of any label appearing in a control. 
Maximum length of any key-equavilent symbols appearing in a control. 
Spacing between identification elements in a region 
Maximum number of controls that can be present in a control path. 

22 rFixedPointDisplace_X Percent of iMaxShellWidth the cFixedFocusPoint.X is displaced rightward from 

top-left corner of the maximum shell. 

23 rFixedPointDisplace_Y Percent of iMaxShellHeight the cFixedFocusPoint.Y is displaced downward 
from top-left corner of the maximum shell. 

Maximum width required for Menu & ToolBar shell. Null for other controls 
Maximum Height required for Menu & ToolBar shell. Null for other controls. 
Maximum width required for Menu & ToolBar display. Null for other controls 
Maximum Height required for Menu & ToolBar display. Null for other controls. 
Pointer to the data structure defining the initial menu or toolbar displayed at 
control activation. This parameter is null for controls having parameters that 
can vary during different activations. 
Width of initial Menu &r ToolBar shell. Null for other controls 
Height of initial Menu & ToolBar shell. Null for other controls. 
Width of initial Menu & ToolBar display. Null for other controls 
Height of initial Menu & ToolBar display. Null for other controls. 



15 iRegionHeight 

16 iRegionsLimit 

17 ilconWidth 

18 iMaxLabelLength 

19 iMaxKeyEquivLength 

20 ilnterGap 

21 iMaxNumGenerations 



24 iMaxShellWidth 

25 iMaxShellHeight 

26 iMaxDisplayWidth 

27 iMaxDisplayHeight 

28 pBaseControlParms 



29 iBaseShellWidth 

30 iBaseShellHeight 

31 iBaseDisplayWidth 

32 iBaseDisplayHeight 
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5C00 





rSession 










01 


pnCD 




08 


iMaxDisplayWidth 




14 


cWorkAreaCenter 


02 


pnlnitialCD 




09 


iMaxDisplayHeight 




15 


iTotalNumServices 


03 


clnitialAxisOrigin 




10 


cStartCursor 




16 


rCurrDisplayDisplace_X 


04 


handleDisplayWindow 




11 


iGenerationNumber 




17 


rCurrDisp!ayDisplace_Y 


05 


cTLMaxDisplay 




12 


cTLWorkArea 




18 


setlnitialDataObjects 


06 


iMaxShellWidth 




13 


cBRWorkArea 




19 


setLivePool 


07 


iMaxShell Height 






I 


20 


setDeadPool 









DEFINITIONS 



rCurrentSession: VARIABLES OF CURRENT ACTIVATION OF DISPLAY SUB-SYSTEM 

01 pnCD Pointer to node of llnCD storing values fo the current display. 

02 plnitialnAC Pointer to first node of the llnCD data structure. 

03 clnitialAxisOrigin Screen coordinate pair of defining the axis origin at control subsystem activation. 

04 handleDisplayWindow Pointer to data and procedures controlled by the operating system that 

manage the window containing the controldisplay. 

05 cTLMaxDisplay Coordinate pair defining best location of top-left corner of the maximum display. 

06 iMaxShellWidth Width of max shell that can be encountered given the initial display requested. 

07 iMaxShellHeight Height of max shell that can be encountered given the initial display requested. 

08 iMaxDisplayWidth Width of max display that can be encountered given the initial display requested. 

09 iMaxDisplayHeight Height of max display that can be encountered given the initial display requested. 

10 cStartCursor Coordinate pair defining the cursor location relative to clnitialAxisOrigin at control 

subsystem activation. 

1 1 iGenerationNumber Number of generations of current toolbar display. 

1 2 cTLWorkArea Coordinate pair defining the top-left corner of the current work area. 

1 3 cBRWorkArea Coordinates of bottom-right corner of the current work area. 

14 cWorkAreaCenter Coordinate pair defining the center of the current work area. 

15 iTotalNumServices Number of services performed during the current control subsystem activation. 

1 6 rCurrDisplayDisplace_X rDisplayDisplace_X parameter with allowance for extreme work area 

dimensions. 

1 7 rCurrDisplayDisplace_Y rDisplayDisp!ace_Y parameter with allowance for extreme work area 

dimensions. 

1 8 setlnitialDataObjects Set of data objects existing control subsystem activated. 

1 9 setLivePool Accumulating set of data objects created by user manipulation of controls during 

current activation of the control subsystem. 

20 setDeadPool Accumulating set of data objects destroyed by user manipulation of controls 

during current activation of the control subsystem. 



FIGURE 5C 



Title: METHOD TO DISPLAY AND MANAGE COMPUTER POP-UP CONTROLS 
Inventor: Stanley W. Driskell 
Atty. Ref. No.: 8219-000006 

26/61 
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pParent pChild rCurrentDisplay | 



01 02 



03 


sControiType 


04 


pControlParms 


05 


sTitle 


06 


cTLShell 


07 


iShellWidth 


08 


iShellHeight 


09 


iDisplayWidth 


10 


iDisplayHeight 


11 


cTLDisplay Window 


12 


cFixedPoint 


13 


sSelectionMode 


14 


iUnique ID 



DEFINITIONS 

01 pParent Pointer to parent of current nCD node 

02 pChild Pointer to child of current nCD node. 

rCurrentDisplay: VARIABLE VALUES TO MANAGE CURRENT DISPLAY 

03 sControiType Type of control managed by current llnCD node: 

"Menu", "ToolBar", "ListBox", "Dialog", "Other". 

04 pControlParms Pointer to system data structure defining parameters of the control 

identified by the current nCD node. 

05 sTitle String containing label appearing inTitleBar 

06 cTLShell Coordinate pair defining the top-left corner of the shell of the current control. 

07 iShellWidth Width of the current shell. 

08 iShellHeight Height of the current shell. 

09 iDisplayWidth Width of the current display. 

10 iDisplayHeight Height of the current display. 

1 1 cTLDisplayWindow Coordinate pair defining the top-left corner of the current display. 



12 cFixedPoint 

13 sSelectionMode 



14 iUniquelD 



Coordinate pair defining the current fixed point. 
Designates kind of selection from control is permitted 

- Single -> single selection is imposed by design. 

- User ->"MultiSelect" displayed. 

* If "Multi-Sect" not selected, user is constrained to single selection. 

* If "Multi-Sect" selected, the multi-select area is reconfigured to 
"Done|Cancel", and the user is not constrained to single selection.. 

- Multiple -> multiple selection is permitted. 

The unique identification number of specific control defined by current 
llnCD node. 
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Control [ | aServiceHistory[iTotalNumServices].rService 



Unused 



| aServiceHistory[m+r+1 Service 



| aService H istoryp M axServices] . rService 



5E00 

rService 


01 


pDoService 
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pUndoService 


03 


pnCD 


04 


iUniquelD 


05 


psetReferencedDataObjects 


06 


psetDestroyedDataObjects 


07 


psetCreatedDataObjects 


08 


iStatus 



DEFINITIONS 

rService: VARIABLE VALUES TO MANAGE ARBITRARY UNDO 

01 pDoService Pointer to processes that perform the X th service of the current Control 

Subsystem activation. 

02 pUndoService Pointer to processes that perform the reverse capability of the X th service of 

the current Control Subsystem activation. 

03 pnCD Pointer to llnCD node defining the control from which the X th service of the 

current control subsystem activation was requested. 

04 iUniquelD Unique identification number of the control identified by the current node. 

05 psetReferencedDataObjects 

Pointer to a set identifying ail data objects utilized during performance of the 
X th service excluding reference to any data object(s) created by that service. 

06 psetDestroyedDataObjects 

Pointer to a set identifying all data objects destroyed during performance of 
the Xth service. 

07 psetCreatedDataObjects 

Pointer to a set identifying all data objects created during performance of the 
X th service. 

08 iStatus Indicator to the current state of the X th service: 

+1 -> service has not been reversed 
0 -> service is temporarily reversed 

-1 -> service currently reversed because of dependence on a one or more 

data objects created by prior service(s) that have been reversed. 
-2 -> service is permanently reversed 
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6A00 



PROCEDURE ApplicationMasterCallModule ( ) 



7A00 -\ GenerateControlSubsystemParmeters ( 

rDef aultParms, rDisplayParms ) ; 

6A02 ' + I 



6A04 



6A06 



\ User Manipulation of Application Interface / 

V i ' 

^Manage user manipulation of application interface \ 



sNextControl = "Menu"; 
pResult = rDisplayParms. 

aControl [Menu] . rVar .pBaseControlParms; 




sNextControl = "ToolBar"; 
pResult = rDisplayParms. 

aControl [ToolBar] . rVar . pBaseControlParms ; 



6A08 



/ SYSTEM RESPONSE TO: x 

\ non-Radial Control ^No 
\ activity / 



/ SYSTEM RETURNS : 

Yes>< sNextControl j-^' 
\ pResult 



6A10 



8A00 



sCurrentControlType = sNextControl; 
pCurrentControlParms = pResult; 



ControlSubSystem ( 
sCurrentControlType, pCurrentControlParms, 
sNextAction, sNextControl, pResult, 
rDisplayParms, rSession, llnCD) ; 



11F00 - jTerminateControlSubsystem (rSession, llnCD) 



6A12 




bJumpCursor= 
rDisplayParms . rCommon . b JumpCursor ; 



IF(bJumpCursor) PUT_CURSOR ( rSession . cStartCursor) ; 



UNTIL ( End of Session); 



c 



J 
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7A02 



7A04 



7A08 



PROCEDURE GenerateControlSubsystemParameters ( 

rDefaultParms, rDisplayParms) ; 

1 

WITH rDisplayParms . rCommon 

// Determine implicit work area dimensions 

WRITE CRT ( "Submit Work Area dimensions or Default: ); 

READ_CRT ( "Default" or read Width and Height values); 
IF ("Default" read from CRT) 

iWorkAreaWidth = rDefaultParms . rCommon . iWorkAreaWidth; 

iWorkAreaHeight = rDefaultParms . rCommon. iWorkAreaHeight ; 
ELSE 

iWorkAreaWidth = Width; 
iWorkAreaHeight = Height; 
END; 



// Determine max display displacement of reference corner 

WRITE_CRT ( "Submit display displacement or Default:"); 

READ_CRT ( "Default" or MaxDisplace_X & MaxDisplace_Y values); 

IFC'Default" read from CRT) 

rDisplayDisplace_X= rDefaultParms . rCommon . rDisplayDisplace_ 
rDisplayDisplace_Y= rDefaultParms . rCommon . rDisplayDisplace_ 

ELSE 

rDisplayDisplace_X= MaxDisplace_X; 
rDisplayDisplace_Y= MaxDisplace_Y; 
END; 



// Determine cursor positioning at control subsystem terminati 
WRITE_CRT ( " Jump cursor at control display termination:"); 
READ_CRT ( "Default" or read Jump value); 
IF (Jump = "Default") 

bJumpCursor = rDefaultParms . rCommon. bCursor Jump; 
ELSE 

bJumpCursor = Jump; 



// Designers are expected to submit common values 



s Format 
iTitleBarHeight 
iCascadeDisplace_ 
iCascadeDisplace_ 
rWAx/DZxRatio 
rWAy/DZyRatio 



rDefaultParms . rCommon . s Format ; 
= rDefaultParms . rCommon. iTitleBarHeight; 
= rDefaultParms . rCommon . iCascadeDisplace_ 
= rDefaultParms . rCommon. iCascadeDisplace_ 
= rDefaultParms . rCommon . rWAx/DZxRatio; 
rDefaultParms . rCommon. rWAy/DZyRatio; 



bLikelyMaxDimension= rDefaultParms . rCommon . iLikelyMaxDimension; 



REPEAT (FOREVER) 




// Specify type of control for which control specific 
// paremeters are to be provided 

WRITE_CRT ( "Parameters for control of type":); 
READ_CRT ( sControlType OR "Done") ; 



// Acquire parameters for control of specified format 
GenerateSpecif icControlParameters ( 

sControlType, rDefaultParms, rDisplayParms); 



END_RE PEAT ( Forever ) 



C RETURN ^ ) 
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7BO0 



7B08 



7B10 



PROCEDURE GenerateSpecificControlParameters ( 

sControlType, rDef aultParms , rDisplayParms) ; 



WITH rDisplayParms .aControl [sControlType] . rVar 

// Designers submit specification of control graphic (null if NA) 
iRegionHeight = 

rDef aultParms . aControl [sControlType] . rVar . iRegionHeight ; 
iRegionsLimit = 

rDef aultParms . aControl [sControlType] . rVar . iRegionsLimit ; 
ilconWidth = 

rDef aultParms . aControl [sControlType] . rVar . ilconWidth ; 
iMaxLabelLength = 

rDef aultParms . aControl [sControlType] . rVar . iMaxLabelLength; 
iMaxKeyEquivLength= i 

rDef aultParms . aControl [sControlType] . rVar . iMaxKeyEquivLength; 
ilnterGap = 

rDef aultParms . aControl [sControlType] . rVar . ilnterGap; 



// Designers submit for maximum number of generations 
iMaxNumGenerations = 

rDe fault Parms . aControl [sControlType] . rVar . iMaxNumGenerations; 



// Designers submit specification for fixed-point displacement 
iFixedPointDisplace_X = 

rDefault Parms .aControl [sControlType] . rVar . iFixedPointDisplace_X; 
iFixedPointDisplace_Y = 

rDef aultParms . aControl [sControlType] . rVar . iFixedPointDisplace_Y; 



// Designers submit speci 
iMaxShellWidth = 

rDef aultParms . aControl 
iMaxShellHeight= 

rDef aultParms . aControl 
iMaxDisplayWidth = 

rDef aultParms . aControl 
iMaxDisplayHeight= 

rDef aultParms . aControl 



fication for maximum dimensions 
[] .rVar .iMaxShellWidth; 
[ sControlType ] . rVar . iMaxShellHeight ; 
[sControlType] . rVar . iMaxDisplayWidth; 
[ sControlType] . rVar . iMaxDisplayHeight; 



// Designers submit speci 
pBaseControlParms= 

rDef aultParms . aControl 
iBaseShellWidth = 

rDef aultParms . aControl 
iBaseShellHeight= 

rDef aultParms . aControl 
iBaseDisplayWidth = 

rDef aultParms . aControl 
iBaseDisplayHeight= 

rDef aultParms . aControl 
END WITH 



fication for basic dimensions 
[sControlType] . rVar . pBaseControlParms ; 
[sControlType] . rVar . iBaseShellWidth; 
[ sControlType] . rVar . iBaseShellHeight ; 
[sControlType] . rVar . iBaseDisplayWidth; 
[sControlType] . rVar . iBaseDisplayHeight ; 
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8A00 - 



9A00 



8A04 



PROCEDURE ControlSubSystem( 

sCurrentControlType , pCur rentControlParms , 
sNextAction, sNextControl , pResult, 
rDisplayParms, rSession, llnCD) 



// Generate initial display of requested control 
InitialControlDisplay ( 

sCurrentControlType, pCurrentControlParms, 
rDisplayParms, rSession, llnCD, arService) ; 



// Empty sets storing variables created/destroyed by services 
IDENTIFY_DATA_OBJECTS (rSession. setlnitialDataObjects) ; 
EMPTY (rSession. setLivePool) ; 
EMPTY (rSession. setDeadPool) ; 



REPEAT FOREVER 



10A00 



// Manage user response to current control 
ManageUserControlActivity ( 

sCurrentControlType, sNextAction, sNextControl, pResult, 
rDisplayParms, rSession, llnCD, arService) ; 




// Find most recent "Done" control 

„ A pnCD = rSession. pnCD; 

xes— *\ pp are nt=*pnCD.pParent; 

iGenerationNumber= rSession. iGenerationNumber ; 



FOR i= iGenerationNumber DOWNTO 2 BY -1 



sMode=*pParent . rCurrentDisplay . sSelectionMode; 



r 



sNextAction ="Ascendant " ; 
sNextControl="Determine" ; 
*pResult = i-1; 




pnCD = pParent; 
pParent=*pnCD . pParent ; 

I 



END FOR LOOP 



sNextAction ="Exit"; 
sNextControl="Application" ; 



sNextAction^^Yes-JiAncestorNumber =*pResult 
~^lA^cendarrtiI-'^ I ^ 

No 10B00 



GenerateAscendantControl ( iAncestorNumber , 
rDisplayParms, rSession, llnCD) ; 



sCurrentControlType = sNextControl; 
les ~ *1pCurrentControlParms= pResult ; 



GenerateDescendantControl ( 

sCurrentControlType, pCurrentControlParms, 
rDisplayParms, rSession, llnCD) ; 



END REPEAT LOOP 
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9A00 



9B00 



9A102 



11A00 



9A104 



PROCEDURE lnitialControlDisplay( 
sCurrentControlType, pCurrentControlParms, 
rDisplayParms, rSession, llnCD, arService); 



// Determine position of Work Area 
WorkAreaLocator(rDisplayParms, rSession); 



// Allocate memory tor Control Subsystem activation 
arServiceHistory[iMaxServices][]= [iMaxServices][8*null]; 
rSession. pnCD = null; 

rSessio n. iGenerationNumber = 1; 

+ 

AllocateMemory(rSession, llnCD); 



pnCD = rSession. pnCD; 
rSession. pnlnitialCD = pnCD; 
rSession. iTotalNumServices = 0; 
rSession .clnitialAxisOrigin= GET_AXIS_ORIGIN(); 
sSelectionMode=GET_SELECTION_MODE(*pCurrentControlParms); 
sTitle = GET_APPLICATION_TITLE(*pCurrentControlParms); 
iUniquelD= GET_UN]QUE_IDENTIFICATION(*pCurrentControiParms); 
*pnCD.rCurrentDisplay.sTitle = sTitle; 
*pnCD.rCurrentDisplay.sControiType = sCurrentControlType; 
*pnCD.rCurrentDisplay.pControlParms = pCurrentControlParms; 
*pnCD.rCurrentDisplay.sSelectionMode= sSelectionMode; 
*pnCD.rCurrentDisplay.iUniquelD = iUniquelD; 
bLikelyDisp = rDisplayParms. bLikelyMaxDisplay; 




Yes- 



9A106 



SYSTEM SPECIFIC PROCEDURE: 

Determine dimensions of likely maximum display 
RETURN: iMaxSheilWidth, iMaxShellHeight, 
]Mjxr^splay^d|h ± iMaxDis 



' SYSTEM SPECIFIC PROCEDURE: 

Determine absolute dimensions of control with largest width 
& control with largest height.(lncl ascendant displacements) 
RETURN: iMaxShellWidth, iMaxShellHeight, 

iMaxDisplayWidth, iMaxDisplayHeight 



rSession.iMaxShellWidth = iMaxShellWidth; 
rSession. iMaxShellHeight = iMaxShellHeight; 
rSession. iMaxDisplayWidth = iMaxDisplayWidth; 
rSession. iMaxDisplayHeight= iMaxDisplayHeight; 



9C00 



9D00 



// Calculate location of Maximum Display Window 
CalculateMaximumDisplayLocation(rDisplayParms, rSession); 



// Calculate coordinates ot the Fixed Focus Point 
CalculateFixedPointCordinates( 

sCurrentControlType, rCurrentDisplayParms, rSession, llnCD); 
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//Allocate resources but do not render display window. 
handleDisplayWindow= 
CREATE_WINDOW(NAME=sTitle, 

RENDER=NO, 

TITLE_BAR=NONE, 

BOUNDARY_WIDTH=0, 

FILL=TRANSPARENT); 
rSession.handleDisplayWindow = handleDisplayWindow; 

I 

II Calculate dimensions of the current display 
CalculateDimensions(sCurrentControlType, pCurrentControlParms, 

iShellWidth, iShellHeight, iDisplayWidth, iDisplayHeight, 

rDisplayParms, rSession); 



// Calculate location of current display 
CalculateDisplayLocation(rDisplayParms, rSession, HnCD); 



// Generate current display 
GenerateDisplay(rDisplayParms, rSession, HnCD); 



| PUT_CURSOR(+5, 0); 

Q RETURN ) 
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9B00 



I PROCEDURE WorkAreaLocator(rDisplayParms, rSession); 
L ~ E — 



9B02 



9B04 



// Fetch parameters for calculation of work area parameters 
cTLDisplayZone = GET_DISPLAY_ZONE_ORIGIN(); 
iDisplayZoneWidth = GET_DISPLAY_ZONE_WIDTH(); 
iDisp!ayZoneHeight= GET_DISPLAY_ZONE_HEIGHT(); 

cBRDisplayZone.X = cTLDisplayZone.X + iDisplayZoneWidth; 
cBRDisplayZone.Y = cTLDisplayZone.Y - iDisplayZoneHeight; 

i. 




SYSTEM SPECIFIC PROCEDURE: 

Determine whether work area is to be 
' v identified by EXPLICIT or IMPLICIT methods 



Yes- 



9B06 



9B08 



9B10 



, SYSTEM SPECIFIC PROCEDURE: 

i Determine parameters for explicit work area of the 
1 current system state. 

'^RETURN: cTLWorkArea, cBRWorkArea, cWorkAreaCenter 



// Determination or implicit worK area 

cStartCursor = GET_CURSOR_COORDINATES(); 

rSession.cStartCursor = cStartCursor; 

iWorkAreaWidth = rDisplayParms.rCommon.iWorkAreaWidth; 

iWorkAreaHeight= rDisplayParms.rCommon.iWorkAreaHeight; 



// Implicit work area defined as area surrounding cursor 
cTLWorkArea.X = cStartCursor.X - iWorkAreaWidth/2; 
cBRWorkArea.X = cTLWorkArea.X + iWorkAreaWidth; 
IF(cTLWorkArea.X < cTLDisplayZone.X) 

cTLWorkArea.X = cTLDisplayZone.X; 

cBRWorkArea.X = cTLDisplayZone.X + iWorkAreaWidth; 
ENDJF; 

IF(cBRWorkArea.X > cBRDisplayZone.X) 

cBRWorkArea.X = cBRDisplayZone.X; 

cTLWorkArea.X = cBRDisplayZone.X - iWorkAreaWidth; 
ENDJF; 

cTLWorkArea.Y = cStartCursor.Y + iWorkAreaHeight/2; 
cBRWorkArea.Y = cTLWorkArea.Y - iWorkAreaHeight; 
IF(cTLWorkArea.Y > cTLDisplayZone.Y) 

cTLWorkArea.Y = cTLDisplayZone.Y; 

cBRWorkArea.Y = cTLDisplayZone.Y - iWorkAreaHeight; 
ENDJF; 

IF(cBRWorkArea.Y < cBRDisplayZone.Y) 
cBRWorkArea.Y = cBRDisplayZone.Y; 
cTLWorkArea.Y = cBRDisplayZone.Y + iWorkAreaHeight; 

cWorkAreaCenter.X = (cTLWorkArea.X + cBRWorkArea.X)/2; 
cWorkAreaCenter.Y = cTLWorkArea.Y + cBRWorkArea.Y /2; 



// Store Work Area parameters 
rSession.cTLWorkArea = cTLWorkArea; 
rSession.cBRWorkArea = cBRWorkArea; 
rSession.cWorkAreaCenter= cWorkAreaCenter; 
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[PROGRAM CalculateMaximumDispiayLocation( rDisplayParms, rSession); 



cTLDisplayZone = GET_DISPLAY_ZONE_ORIGIN(); 
iDisplayZoneWidth = GET_DISPLAY_ZONE_WIDTH(); 
iDisplayZoneHeight= GET_DISPLAY_ZONE_HEIGHT(); 

cBRDisplayZone.X= cTLDisplayZone.X + iDisplayZoneWidth; 
cBRDisplayZone.Y= cTLDisplayZone.Y - iDisplayZoneHeight; 



-9C00 
9C102 



//Determine paramaters to position Max Display reference corner 
iMaxDisplayWidth = rSession .cMaxDisplayWidth; 
iMaxDisplayHeight = rSession.cMaxDisplayHeight; 
cTLWorkArea = rSession. cTLWorkArea; 
cBRWorkArea = rSession. cBRWorkArea; 
iWorkAreaWidth = cBRWorkArea.X - cTLWorkArea.X; 
iWorkAreaHeight = cTLWorkArea.Y - cBRWorkArea.Y; 
rWAx/DZxRatio = rDisplayParms.rCommon.rWAx/DZxRatio; 
rWAy/DZyRatio = rDisplayParms. rCommon.rWAy/DZyRatio; 
lF(iWorkAreaWidth/iDisplayZoneWidth > rWAx/DZxRatio) 

rDisplayDisplace_X= 0.0; rDisplayDisplace_Y= 1 .0; 
ELSEIFpWorkAreaHeight/iDisplayZoneHeight > rWAy/DZyRatio) 

rDisplayDisplace_X= 1 .0; rDisplayDisplace_Y= 0.0; 
ELSE 

rDisplayDisplace_X= rDisplayParms.rCommon.rDisplayDisplace_X; 
rDisplayDisplace_Y= rDisplayParms.rCommon.rDisplayDisplace_Y; 
ENDJF; 

rSession. rCurrDisplayDisplace_X= rDisplayDisplace_X; 
rSession. rCurrDisplayDisplace_Y= rDisplayDisplace_Y; 
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// Determine direction of Center Seeking: 
IF((cWorkAreaCenter.X >= cDisplayZoneCenter.X) AND 
(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y)) 
sCenterSeeking= "DownLeft"; 
IF((cWorkAreaCenter.X >= cDisplayZoneCenter.X) AND 
(cWorkAreaCenter.Y < cDisplayZoneCenter.Y)) 
sCenterSeeking= "UpLeft"; 
IF((cWorkAreaCenter.X < cDisplayZoneCenter.X) AND 
(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y)) 
sCenterSeeking= "DownRight"; 
IF((cWorkAreaCenter.X < cDisplayZoneCenter.X) AND 
(cWorkAreaCenter.Y < cDisplayZoneCenter.Y)); 
sCenterSeeking= "UpRight"; 



// Calc optimum location ot max control display reterence corner 
iDisplace_X=rDisplayDisplace_X*WorkAreaWidth/2; 
iDisplace_Y= rDisplayDisplace_Y*WorkAreaHeight/2; 
CASE(sCenterSeeking) 

"DownLeft": cOpt.X= cWorkAreaCenter.X-iDisplace_X; 

cOpt.Y= cWorkAreaCenter.Y-iDisplace_Y; 
"UpLeft": cOpt.X= cWorkAreaCenter.X-iDisplace_X; 

cOpt.Y= cWorkAreaCenter.Y+iDisplace_Y; 
"DownRight": cOpt.X= cWorkAreaCenter.X+iDisplace_X; 

cOpt.Y= cWorkAreaCenter.Y-iDisplace_Y; 
"UpRight": cOpt.X= cWorkAreaCenter.X+iDisplace_X; 

cOpt.Y= cWorkAreaCenter.Y+iDisplace_Y; 
END CASE; 



9C106 



9C108 
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II Calculate Free Space for Maximum Display 
CASE(sCenterSeeking) 

"DownLeft": iFreeSpace.X = cOpt.X - cTLDisplayZone.X; 

iFreeSpace.Y = cOpt.Y - cBRDisplayZone.Y; 
"UpLeft": iFreeSpace.X = cOpt.X - cTLDisplayZone.X; 

iFreeSpace.Y = cTLDisplayZone.Y - cOpt.Y; 
"DownRight": iFreeSpace.X = cBRDisplayZone.X - cOpt.X; 

iFreeSpace.Y = cTLDisplayZone.Y - cOpt.Y; 
"UpRight": iFreeSpace.X = cBRDisplayZone.X - cOpt.X; 

iFreeSpace.Y = cOpt.Y - cBRDisplayZone.Y; 

END_CASE; 



9C202 



// Determine presence of constraint conditions: 
IF(iFreeSpace_X < iMaxDisplayWidth) // Horizontal constraint? 
bHoriz = TRUE; 
ELSE 

bHoriz = FALSE; 
ENDJF; 

IF(iFreeSpace_Y < iMaxDisplayHeight) // Vertical constraint? 
bVert = TRUE; 
ELSE 

bVert = FALSE; 
ENDJF; 



9C204 



// Optimum location for Maximum Display origin. 
cWorkAreaCenter= rSession.cWorkAreaCenter; 
cDisplayZoneCenter.X=(cTLDisplayZone.X+cBRDisplayZone.X)/2; 
cDisplayZoneCenter.Y=(cTLDisplayZone.X+cBRDisplayZone.Y)/2; 
IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 
cTLMaxDisplay.X = cOpt.X - iMaxDisplayWidth; 
ELSE 

cTLMaxDisplay.X = cOpt.X; 
ENDJF 

IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y) 

cTLMaxDisplay.Y = cOpt.Y; 
ELSE 

cTLMaxDisplay.Y = cOpt.Y + iMaxDisplayHeight; 
ENDJF; 



9C206 




rSession.cTLMaxDisplay = cTLMaxDisplay; 



9C208 



9C210 
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II Try to remove horizontal constraint by shifting 
// Maximum Display so clipped edge is on vertical 
// Display Zone boundary. Then recalculate 
// horizontal free space. 

IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 
cTLMaxDisplay.X=cTLDisplayZone.X; 
iFreeSpace_X = cTLWorkArea.X - cTLDisplayZone.X; 
ELSE 

cTLMaxDisplay.X=cBRDisplayZone.X-iMaxDisplayWidth; 
iFreeSpace_X = cBRDisplayZone.X - cBRWorkArea.X; 
ENDJF; 



9C304 





// Try to remove Horizontal constraint by 
// implicitely setting rDisplayDisplace_Y to 1 .0 
IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y) 
iFreeSpace_Y= cBRWorkArea.Y - cBRDisplayZone.Y; 
ELSE 

iFreeSpace_Y= cTLDisplayZone.Y - cTLWorkArea.Y; 
ENDJF; 



// Horizontal constraint removed, 
// No Vert constraint with rDisplayDisplace_Y>=1 .0 
IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y) 
cTLMaxDisplay.Y= cBRWorkArea.Y; 
ESE 

cTLMaxDisplay.Y= cTLWorkArea.Y+iMaxDisplayHeight; 
ENDJF; 



// Horizontal constraint remains, 
// Vertical constraint if rDisplayDisplace_Y=1 .0 
IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y) 
cTLMaxDisplay.Y= 

cBRDisplayZone.Y+iMaxDisplayHeight; 

ELSE 

cTLMaxDisplay.Y= cTLDisplayZone.Y; 
ENDJF; 



9C310 



[rSession.cTLMaxDisplay = cTLMaxDisplay; 
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// Try to remove vertical constraint by shifting 
// Maximum Display so clipped edge is on horizontal 
// boundary of Display Zone. Then recalculate 
// vertical free space. 

IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y) 
cTLMaxDisplay.Y= cBRWorkArea.Y+iMaxDisplayHeight; 
iFreeSpace_Y = cBRWorkArea.Y - cBRDisplayZone.Y; 
ELSE 

cTLMaxDisplay.Y=cTLDisplayZone.Y; 
iFreeSpace_Y = cTLDisplayZone.Y - cTLWorkArea.Y; 
ENDJF; 





// Remove Vertical constraint if possible by 
// implicitely setting rD i s pi ay D isp I ace_X to 1 .0 
IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 
iFreeSpace_X= cTLWorkArea.X - cTLDisplayZone.X; 
ELSE 

iFreeSpace_X= cBRDisplayZone.X - cBRWorkArea.X; 
ENDJF; 



// Vertical constraint removed, 

// No Horiz constraint with rDisplayDisplace_X= 1 .0 

IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 

cTLMaxDisplay.X=cTLWorkArea.X-iMaxDisplayWidth; 

ESE 

cTLMaxDisplay.X= cBRWorkArea.X; 

ENDJF; 



9C408 



9C410 



// Vertical constraint remains, 

// Horiz constraint with rDisplayDisplace_X= 1.0 

IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 

cTLMaxDisplay.X=cTLDisplayZone.X; 

ELSE 

cTLMaxDisplay.X=cBRDisplayZone.X-iMaxDisplayWidth; 
ENDJF; 



rSession.cTLMaxDisplay = 



cTLMaxDisplay; 
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// HORIZ & VERTL constraints present 

// Calc best X-coord for Maximum Display 

' IF(cWorkAreaCenter.X >= cDisplayZoneCenter.X) 

cTLMaxDisplay.X = cTLDispIayZone.X; 
ELSE 

cTLMaxDisplay.X = cBRDisplayZone.X - iMaxDisplayWidth; 
ENDJF; 



9C502 



// HORIZ & VERTL constraints present 
// Calc best Y-coord for Maximum Display 
IF(cWorkAreaCenter.Y >= cDisplayZoneCenter.Y); 

cTLMaxDisplay.Y = cBRDisplayZone.Y + iMaxDisplayHeight; 
ELSE 

cTLMaxDisplay.Y = cTLDisplayZone.Y; 
ENDJF; 



9C504 



rSession.cTLMaxDisplay = cTLMaxDisplay; 



31 
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PROCEDURE CalculateFixedPointCoordinates( 
sControlType, rDisplayParms, rSession, HnCD); 

I 



// Fetch needed values from data structures 
rFixedPointDisplace_X = 

rDisplayParms.aControl[sControlType].rVar.rFixedPointDisplace_X; 
rFixedPointDisplace_Y = 

rDisplayParms. aControl[sControlType].rVar.rFixedPointDisplace_Y; 
iMaxDisplayHeight=rSession.iMaxDisplayHeight; 
IMaxShellWidth = rSession. iMaxShell Width; 
iMaxShellHeight = rSession.iMaxShellHeight; 
cTLMaxDisplay = rSession.cTLMaxDisplay; 



// Determine top-left corner of the maximum shell 
cTLMaxShell.X= cTLMaxDisplay. X; 

cTLMaxShell.Y=cTLMaxDisplay.Y-(iMaxDisplayHeight-iMaxShellHeight); 



// Determine Fixed-Point Coordinates 
pnCD = rSession. pnCD; 
*pnCD.rCurrentDisplay.cFixedPoint.X = 

cTLMaxShell.X + (rFixedPointDisplace_X*iMaxShellWidth); 
*pnCD.rCurrentDisplay.cFixedPoint.Y = 

cTLMaxShell.Y - (rFixedPointDisplace_Y*iMaxShellHeight); 



// Translate axis to position the axis origin at the fixed-point 
TRANSLATE_AXIS(FROM = rSessionParms.clnitialAxisOrigin, 
TO =*pnCD.rCurrentDisplay.cFixedPoint); 



9D00 



9D02 



9D04 



9D06 



9D08 



// Determine defining corners of display zone under translated axis 
cTLDisplayZone = GET_DISPLAY_ZONE_ORIGIN(); 
iDisplayZoneWidth= GET_DISPLAY_ZONE_WIDTH(); 
iDisplayZoneHeight= GET_DISPLAY_ZONE_HEIGHT(); 

cBRDisplayZone.X= cTLDisplayZone.X + iDisplayZoneWidth; 
cBRDisplayZone.Y= cTLDisplayZone.Y - iDisplayZoneHeight; 
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PROCEDURE ManageUserControlActivity( 
sCurrentControl, sNlextAction, sNextControl, pResult, 
rDisplayParms, rSession, HnCD, arService); 




E 



User Manipulation of Control Interface 



-<5> 



,'SYSTEM SPECIFIC PROCEDURE: 

i Manage User Menu Activity( 
i pDoService, pUndoService, pUsedDataObjects, 
| psetDestroyedDataObjects, psetCreatedDataObjects, 
! sAction, iAncestor, pActionParm, 
i rDisplayParms, rSession, HnCD); 



10A104 




^SYSTEM SPECIFIC PROCEDURE: 

i Manage User ToolBar Activity( 
i pDoService, pUndoService, pUsedDataObjects, 
| psetDestroyedDataObjects, psetCreatedDataObjects, 
] sAction, iAncestor, pActionParm, 
i rDisplayParms, rSession, HnCD); 



SYSTEM SPECIFIC PROCEDURE: 

Manage User Dialog Activity( 
pDoService, pUndoService, pUsedDataObjects, 
psetDestroyedDataObjects, psetCreatedDataObjects, 
sAction, iAncestor, pActionParm, 
' rDisplayParms, rSession, HnCD); 



'SYSTEM SPECIFIC PROCEDURE: 

i Manage User Combobox Activity( 

i pDoService, pUndoService, pUsedDataObjects, 

1 psetDestroyedDataObjects, psetCreatedDataObjects, 

! sAction, iAncestor, pActionParm, 

i rDisplayParms, rSession, HnCD); 



'SYSTEM SPECIFIC PROCEDURE: 

i Manage Other Control Activityf 

i pDoService, pUndoService, pUsedDataObjects, 

psetDestroyedDataObjects, psetCreatedDataObjects, 
! sAction, iAncestor, pActionParm, 
t rDisplayParms, rSession, HnCD); 



FIGURE 10A1 



Title: METHOD TO DISPLAY AND MANAGE COMPUTER POP-UP CONTROLS 
Inventor: Stanley W. Driskell 
Atty. Ref. No.: 8219-000006 

42/61 




// Parameters giving service history 
pnCD = rSession.pnCD; 
iUniquelD=*pnCD.rCurrentDisplay.iUniquelD; 
iNum = rSession.iTotalNumServices+1; 
rSession.iTotalNumServices = iNum; 

rSession.setLivePool= rSession.setLivePool+*psetCreatedDataObjects; 
rSession.setDeadPool= rSession.setDeadPoo!+*psetDestroyedDataObjects; 



arServiceHistory 
arServiceHistory 
arServiceHistory 
arServiceHistory 
arServiceHistory 
arServiceHistory 



1Num].rService.pDoService= pDoService; 
iNumrService.pUndoService= pUndoService; 



lNum].rService.pnCD= pnCD; 
iNum].rService.iUniquelD= iUniquelD; 
iNum].rService.psetUsedDataObjects=psetUsedDataObjects; 
i N urn] . rService . psetCreatedDataObjects= 

psetCreated D ataObjects ; 
arServiceH istoryp N u m] . rService . psetDestroyed DataO bjects= 

psetDestroyedDataObjects; 
arServiceHistory[iNum].rService,iStatus= +1 ; 



Yes— > | sService = "UndbT 



Keverseservice(sservice, 
rSession, llnCD, arServiceHistory); 



■Yes— » | sService = "Redo"; 
'10A206 




pnCD = rSession.pnCD; 
p *pnCD.rCurrentDisplay.sSelectionMode= "Multiple"; 



,1F(Spider Format) Update Figure 3B1 with Figure 3B2\ 
i ELSE_IF(Vertical-Linear Format) i 
Yes>J Update Figure 3B3 with Figure 3B4 M 
' ELSE Update: Special Purpose design ; 

Vejndjf^ ; 

/TFXS"pider F6Tmal)TJpdaTe"FTgure 3Cf with Figure 3 _ C2 N 
i ELSEJFjVertical-Linear Format) t 
Yes>! Update Figure 3C3 with Figure 3C4 k 
ELSE Update: Special Purpose design ' 
\END_IF; } 



^lF(Spider Format) 
Update 



Update Figure 3D1 with Figure 3D2 
i to Figure 3G1 with Figure 3G2 
Ypcj ELSEJFfVertical-LinearFormat) 
Yes *i Update Figure 3D3 with Figure 3D4 
1 to Figure 3G3 with Figure 3G4 
ELSE Update: Special Purpose design 
ENDJF; 



,-SYSTEM SPECIFIC PROCEDURE: 

vJJpdate display as required, 
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10A302 



10A304 



10A308 




ReverseServiceTGIobal", 
rSession, HnCD, arServiceHistory); 



sNextAction -'Exit": 
sNextControl- Application"; 
pResult = null; 



sNextAction -TraverseExit"; 
sNextControl="Application"; 
pResult = null; 



10A310 



sNextAction -'Done"; 
sNextControl="unused"; 
pResult = null; 



ReverseService( 


'CurrControl", 


rSession, HnCD 


, arServiceHistory); 



sNextAction ="Ascendant"; 
sNextControl- 'unused"; 
pResult =&iAncestor; 



FIGURE 10A3 
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PROCEDURE GenerateAscendantControl(iAncestorNumber, 
rDisplayParms, rSession, llnCD) 



// Release memory of descendants of redisplayed Ascendant 
ReleaseMemory(iAncestorNumber, rSession, llnCD); 



// Generate requested display 
GenerateDisplay(rDisplayParms, rSession, llnCD); 



^-lOBOO 



-11E00 



^11D00 



( RETURN ) FIGURE 10B 



PROCEDURE GenerateDescendantControl( 
sCurrentControlType, pCurrentControlParms, 
rDisplayParms, rSession, llnCD) 



HZ 



II Allocate memory for requested descendant Control 
AllocateMemory(rSession, linCD); 



^lOCOO 



11A00 



// Load parameters required for requested descendant display 
rSession. iGenerationNumber = rSession. iGenerationNumber+ 1; 
sSelectionMode=GET_SELECTION_MODE(*pCurrentControlParms); 
sTitle= GET_CONTROL_TITLE(*pCurrentControlParms); 
iUniquelD = GETJJNIQUEJDENTIFICATION(*pCurrentControlParms); 
pnCD = rSessions.pnCD; 
pnParentCD =*pnCD.Parent; 
cFixedPoint =*pnParentCD.rCurrentDisplay.cFixedPoint; 
*pnCD.rCurrentDisplay.sContro!Type = sCurrentControlType; 
*pnCD.rCurrentDisplay.pControlParms = pCurrentControlParms; 
*pnCD.rCurrentDisplay.sTitle = sTitle; 
*pnCD.rCurrentDisplay.cFixedPoint = cFixedPoint; 
*pnCD.rCurrentDisplay.sSelectionMode= sSelectionMode; 
*pnCD.rCurrentDisplay.iUniquelD = iUniquelD; 



10C02 



// Calculate dimensions of requested control 
CalculateDimensions(sCurrentControlType, pCurrentControlParms, 
iShellWidth, iShellHeight, iDispIayWidth, iDisplayHeight, 
rDisplayParms, rSession); 



*pnCD.rCurrentDisplay.iShellWidth = iShellWidth; 
*pnCD.rCurrentDisplay.iShellHeight= iShellHeight; 
*pnCD.rCurrentDisplay.iDisp!ayWidth = iDispIayWidth; 
*pnCD.rCurrentDisplay.iDisplayHeight= iDisplayHeight; 



// Determine location of requested display 
CalculateDisplaylocation(rDisplayParms, rSession, llnCD); 



// Generate requested display 
GenerateDisplay( rDisplayParms, rSession, llnCD); 



11 BOO 



10C04 



^11 COO 



11D00 
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PROCEDURE ReverseService(sService, 
rSession, UnAC, arService); 



10D00 



// NOTE: General 

// A service may create or destroy data objects or alter their attributes. 

// The following are presumed: 

// "A" and "B" are services with A performed prior to B. 

// "X" is a data object. 

// NOTE: Create Data Object n 

// Data objects created by a service are destroyed if the service is reversed; i.e., undone . 
// Presume A then B are "undone" with the consequence that data object X is destroyed. If B 
// references X, B cannot be "redone" after being "undone" unless A is first "redone". 
// NOTE: Destroy Data Object . . „ 

// Data objects destroyed by a service are returned to existence if the sevice is undone . 
// Presume A then B are "undone" which recreates X. Since X does not exist when B is initially 
// performed, X is not referenced by B. An A "redo" destroying X is thus inconsequential to B. 
//NOTE: Alter Data Object Attribute . 
// A service may reference a data object that has had attributes altered by a prior service. Since 
// altering attributes neither creates nor destroys the data object, B can be redone irrespective 
// of whether A is "redone". It is presumed that the user implementing A & B to alter an X 
// attribute will be aware of the influence on B of "redoing" or not "redoing" A. 



pnCD = rSession.pnCD; 
iUCurrControllD=*pnCD.rCurrentDisplay.iUniquelD; 
iNServices = rSession.iTotalNumServices; 
setlnitialDataObjects= rSession.setlnitialDataObjectsObjects; 
setl_ivePool= rSession.setLivePool; 
setDeadPool= rSession.setDeadPool; 



10D102- 



sService-'Global" 
"^es" 



^Undo all services performed during current 
// activation of the control subsystem. 
FOR i= iNServices DOWNTO 1 BY -1 




nStatus= arServiceHistory.rServices[i].iStatus; 



10D104-^ 




/SYSTEM SPECIFIC PROCEDURE: 

i Undo service pointed to by 

i arServiceHistory.rServices[i].pUndoService 



[END(GlobalUndo) 



(return) 
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|//l)ndo the most recent service of the current control 



(f! Locate the most recent service of the current control 
FOR f iNServices DOWNTO 1 BY -1 




iMostRecenr- 



/ll Undo targeted service & all subequent, non-reversed services 
FOR i= iNServices DOWNTO iMostRecent BY -1 
WITH arServiceHistory.rServices[i].iStatus; 




'SYSTEM SPECIFIC PROCEDURE:" 

n. Undo service pointed to by pUndoService_ 



I END_WITH; 

k END (Undo most recent service of current control) 



// Declare most recent service of current control permanently reversed 
arServiceHistory.rServices[iMostRecent].iStatus = -2; 
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// Redo services subsequent to the most recent service of the current control 
// that do not reference objects destroyed by a prior, undone service. 



FOR i=iMostRecent+1 TO iNServices BY 1 
WITH arServiceHistory.rServicesp] 




rSession.setlnitialData + setLivePool - setDeadPool; 
1 



^LL_ELEMENTS_OF\ 

*psetReferencedDataObjects 

setAvailabieData 



10D30. 




Status=+1; 

setl_ivePool= setLivePool+*psetCreatedDataObiects; 
setDead Pool = setDead Pool+*psetDestroyed DataObjects ; 



^SYSTEM SPECIFIC PROCEDURE: 

Redo service defined by pDOService 



-»|iStatus= -~ 



END_WITH; 




s END(Redo undone services) 






rSession.setLivePool = setLivePool; 




rSession.setDeadPool = setDeadPool; 





( RETURN ) 
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[//Redo the most recent, permanently undone service of current control 
I5Z 



(II Locate most recent permanently undone service of the current control 
FOR i= iNServices DOWNTO 1 BY -1 




iMostRecent= i; 



/II Undo all non-reversed service subequent to the targeted service 
FOR i= iNServices DOWNTO iMostRecent+1 BY -1 
WITH arServiceHistory.rServices[i].iStatus; 




iStatus = 0; 

SetLivePool = setLivePool - *psetCreatedDataObjects; 
SetDeadPooN setDeadPool - *psetDestroyedDataObjects; 



( 'S~YSTEM SPECIFIC PROCEDURE: 

^ Undo service pointed to by pUndoService 



I END_WITH; 

i s END(Undo most recent service of current control) 
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// Redo services subsequent to the most recent service of the 
// current control that do not reference objects destroyed by a 
// prior, undone service. 



f FOR i=iMostRecent TO iNServices BY 1 
WITH arServiceHistory.rServices[i] 




( RETURN ) 
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|//Undo all non-reversed services performed via the current control 



(fl Locate first service performed via the current control 
FOR f 1 TO iNServices BY -1 



ilD = arServiceHistory.rServicesni.iUniqulD; 
iStatus= arServiceHistory.rServices[i].iStatus; 



10D602 




[END(Most recent current control service) 



( RETURN ") 



iFirst= i; 



// Undo all non-reversed services performed from & subsequent to iFirst 
FOR i= iNServices DOWNTO iFirstService BY -1 
WITH arServiceHistory.rServices[i].iStatus; 




I END VVITH; 

l ENDQJndo most recent service from & subsequent to iFirst) 
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10D704^^ 



/SYSTEM SPECIFIC PROCEDURE: 

v Redo service defined by pDOService_ 

JiStatus= -1; 



I END_WITH; 

lEND(Redo undone services) 



rSession.setLivePool = setLivePool; 
rSession.setDeadPooi = setDeadPool; 



( RETURN ) 

FIGURE 10D7 



Title: METHOD TO DISPLAY AND MANAGE COMPUTER POP-UP CONTROLS 
Inventor: Stanley W. Driskell 
Atty. Ref. No.: 8219-000006 

53/61 



PROCEDURE AllocateMemory(rSession, ilnCD); 



// Assign memory from system heap for a nCD node 
pnNewCD = GET_MEMORY(SIZE_OF(nCD.rCurrentDispIay) + 2); 
pnCD = rSession.pnCD; 
IF(pnCD != null) 

*pnCD.Child = pnNewCD; 
ENDJF; 

*pnNewCD.pParent= pnCD; 
*pnNewCD.pChild = null; 
rSession.pnCD = pnNewCD; 

i 

( RETURN ) 
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PROCEDURE CalculateDimensions(sControlType, pControlParms, iShellWidth, 
iShellHeight, iDispiayWidth, iDispIayHeight, rDisplayParms, rSession,) 



// Determine if control is a Generation 1 Menu or Toolbar 
iGenerationNumber = rSession. iGenerationNumber 

] 




WITH rDisplayParms. aControl[sControlType].rVar 

iShellWidth= iBaseShellWidth; iShellHeight= iBaseShellHeight; 

iDisplayWidth= iBaseDisplayWidth; iDisplayHeight= iBaseDisplayHeight; 
END_WITH; 



( RETURN ~) 



11B106 



11B108 



// Fetch values: combobox & menu, toolbar when iGenerationNum>1 
IF(sControlType="Menu") 

iNumltems = GET_TOTAL_NUMBER_OF_ITEMS(*pControlParms); 

iNumRegions^ iNumltems; 
ELSE_IF(sControlType = "ToolBar"); 

iNumRegions= GET_NUMBER_ICON_GROUPS(*pControlParms); 

iNumltems= GET_NUMBER_ICONS_IN_LARGEST_GROUP(*pControlParms); 
ELSE // ControIType =Combo Box" 

iNumltems = GET_TOTAL_NUMBER_OF_ITEMS(*pControlParms); 

iRegionsLimit= rDisplayParms.aControl[ComboBox].rVar.iRegionsLimit; 

IF(iNumltems > iRegionsLimit) iNumRegions= iRegionsLimit; 

ELSE iNumRegions= iNumltems; 

ENDJF; 
ENDJF; 

sFormat = rDisplayParms. rCommon.sFormat; 




J 

' SYSTEM SPECIFIC PROCEDURE: 

N i Calculate shell and display width and 
1 and height for application specific 
control. 
RETURN: 

iShellWidth, iShellHeight, 
iDispiayWidth, iDispIayHeight 
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II Calc dimensions of controls displayed in Vertical-Linear format 



11B202 



11B204 



11B206 



11B208 



// Fetch relevant values for displays having Vertical Linear format 
iTitleBarHeight = rDisplayParms.rCommon.iTitleBarHeight; 
iCascadeDisplace_X= rDisplayParms.rCommon.iCascadeDisplace_X; 
iCascadeDisplace_Y= rDisplayParms.rCommon.iCascadeDisplace_Y; 
sTemp = sControlType; 

iRegionHeight = rDisplayParms.aControl[sTemp].rVar.iRegionHeight; 
ilconWidth = rDisplayParms.aControl[sTemp].rVar.ilconWidth; 
iMaxKeyEquivWidth = 

rDisplayParms.aControl[sTemp].rVar.iMaxKeyEquivLength; 
ilnterGap = rDisplayParms.aControl[sTemp].rVar.ilnterGap; 



// Calculate height of shell and of control display 
iShellHeight = (iRegionHeighfiNumRegions); 
iDisplayHeight=iShellHeight+iTitleBarHeight+ 

((iGenerationNumber-1)*iCascadeDisplace_Y); 




// Calculate width of ToolBar control 
iShellWidth= 2*ilnterGap + iNumltemsllconWidth; 



Di 



// Calculate width of Menu 
iShellWidth = 0; 



* ComboBox controls 



FOR (i=i TO FiNum Items BY 1) 



HI 



II NOTE: It is presumed required values indicated exist in the 
// data structure pointed to by "pControlParms" 
i Width = ilntergap; 
IF(*pControlParms.plcon[i] != null) 

iWidth= iWidth + ilconWidth + Intergap; 
IF(*pControlParms.ltemsText[i] != null) 

Width = iWidth + LENGTH(*pControlParms.ltemsText[i])+lntergap; 
IF(*pControlParms.KeyEquiv[i] != null) 

iWidth= iWidth + LENGTH(*pControlParms.KeyEquiv[i])+ Intergap; 
lF(iWidth > iShellWidth) 

iShellWidth = iWidth; 

E 



END_FOR 



11B210 



iDisplayWidth= iShellWidth+((iGenerationNumber-1)*iCascadeDisplace_X); 
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// Calculate dimensions for controls displayed in Spider format 
] 



^FORMAT SPECIFIC PROCEDURE: 

i See Patent 5,596,699 
] for Menu shell and display width and 
Yes-* height for Spider format 
' RETURN: 

| iShellWidth, iShellHeight, 
v iDisplayWidth, iDisplayHeight 





^FORMAT SPECIFIC PROCEDURE: 

i Contact author for algorithms detailing 
| calculations for ToolBar shell and display 
Yes-* width and height for Spider format, 
i RETURN: 

| iShellWidth, iShellHeight, 
v iDisplayWidth, iDisplayHeight 




,'FORMAT SPECIFIC PROCEDURE: 

i See Patent 6,239,803 
[ for Combo Box shell and display width and 
Yes-* height for Spider format 
J RETURN: 

| iShellWidth, iShellHeight, 
v iDisplayWidth, iDisplayHeight 



^SYSTEM SPECIFIC PROCEDURE: 

' Implement Spider Format for system 
J specific control 
i RETURN: 

! iShellWidth, iShellHeight, 
\ iDisplayWidth, iDisplayHeight 
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// Determine Dialog Box Width 

iShellWidth = GET_CONTROL_WIDTH(*pControlParms); 

iDisplayWidth = 
iShellWidth + (iGenerationNumber-1)*iCascadeDisplace_X; 

+ 

II Determine Dialog Box Height 
iDisplayHeight= GET_CONTROL_HEIGHT(*pControlParms); 
sTitle = GET_CONTROL_TITLE(*pControlParms); 
IF(sTitle = null) 

iShellHeight= iDispIayHeight; 
ELSE 

iShe!IHeight= iDispIayHeight - iTitleBarHeight; 
ENDJF; 
iDispIayHeight = 

iDispIayHeight + (iGenerationNumber-1)*iCascadeDisplace_Y; 

i 

Return ) 
FIGURE 11B4 



11B502 



.5!. 



System specific procedures: 

1 Generate values of maximum width and height for "Other" controls 
! presented via pop-up display, 
i RETURN: 

[ iShellWidth, iShellHeight, iDisplayWidth, iDispIayHeight 
( RETURN) 
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I PROCEDURE CalculateDisplayl_ocation( rDisplayParms, rSession, llnCD); 



IL? 



II Extract required values from data structures 
pnCD = rSession. pnCD; 
iGenNo = rSession. iGenerationNumber; 
sControlType =*pnCD.rCurrentDisplay.sControlType; 
iShellWidth=*pnCD.rCurrentDisplay.iShellWidth; 
iShellHeight=*pnCD.rCurrentDisplay.iShellHeight; 
iTitleBarHeight= rDisplayParms.rCommon.iTitleBarHeight; 
iCascadeDisplace_X= rDisplayParms.rCommon.iCascadeDisplace_X; 
iCascadeDisplace_Y= rDisplayParms.rCommon.iCascadeDisplace_Y; 
rFixedPointDisplace_X= rDisplay.aControl[sControlType].rVar.cFixedPointDisplace_X; 
rFixedPointDisplace_Y= rDisplay.aControl[sControlType].rVar.cFixedPointDisplace_Y; 



IE 



11 COO 
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// Determine cTLShell NOTE: Axis origin translated to fixed-point coords by 9D08 
cTLShell.X = -(rFixedPointDisplace_X*iShellWidth); 
cTLShell.Y = +(rFixedPointDispIace_Y*iShellyHeight); 
¥ pnCD.rCurrentDisplay.cTLShell.X = cTLShell.X; 

'pnCD.rCurrentDisplay .cTLShell.Y = cTLShell.Y; 



11C04 



// Determine coords of top-left bottom-right corners of display 
cTLDisplay.X = cTLShell.X; 

cTLDisplayWindow.Y = iTitleBarHeight+cTLShell.Y+((iGenNo-1 )*iCascadeDisplace_Y); 
cBRDisplay.X = cTLDisplay.X +(iShellWidth+((iGenNo-1)*iCascadeDisplace_X); 
cBRDisplay.Y = cTLDisplay.Y - (iLabelHeight+iShellHeight+((iGenNo-1)*iCascadeDisplace_Y); 
*pnCD.rCurrentDisplay.cTLDisplayWindow= cTLDisplay; 
*pnCD.rCurrentDisplay.cBRDisplayWindow= cBRDisplay; 



// Test if large display extends beyond display zone. 

cTLDisplayZone = GET_DISPLAY_ZONE_ORIGIN(); 

iDisplayZoneWidth = G ET_D I S PLAY_ZO N E_WI DT H () ; 

iDisplayZoneHeight= GET_DISPLAY_ZONE_HEIGHT(); 

cBRDisplayZone.X = cTLDisplayZone.X + iDisplayZoneWidth; 

cBRDisplayZone.Y = cTLDisplayZone.Y - iDisplayZoneHeight; 

lF(cTLDisplayZone.X>cTLDisplay.X) iShift_X= cTLDisplayZone.X - cTLDisplay.X; 

ELSEIF(cBRDisplayZone.X < cBRDisplay.X) iShift_X= cBRDisplayZone.X-cBRDisplay.X; 

ELSE iShifLX = 0; ENDJF 
IF(cTLDisplayZone.Y > cTLDisplay.Y) iShift_Y= cTLDisplayZone.Y-cTLDisplay.Y; 

ELSEIF(cBRDisplayZone.Y < cBRDisplay.Y) iShift_Y= cBRDisplayZone.Y-cBRDisplay.Y; 

ELSE iShift_Y = 0; ENDJF; 



11C06 



// Adjust fixed point as required to avoid clipping display 
IF(iShift_X != 0 OR iShift_Y != 0) 
WITH *pnCD.rCurrentDisplay 
TRANSLATE_AXIS( 

FROM=cFixedPoint TO=rSessionParms.ilnitialAxisOrigin); 
cFixedPointX = cFixedPoint.X + iShift_X; 
cFixedPoint.Y = cFixedPoint.Y + iShift_Y; 
TRANSLATE_AXIS( 

FROM=rSessionParms.ilnitialAxisOriginTO=cFixedPoint); 
END_WITH; ENDJF; 



11C08 
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PROCEDURE GenerateDisplay(rDisplayParms, rSession, ISnCD); 



11D00 



iTitleBarHeight = rDisplayParms.rCommon.iTitleBarHeight; 
iCascadeDisp!ace_X= rDisplayParms.rCommon.iCascadeDisplace_X; 
iCascadeDisplace_Y= rDisplayParms.rCommon.iCascadeDisplace_Y; 
pCurrGhostNode = rSession.pnlnitialCD 
iGenerationNumber = rSession. iGenerationNumber; 

pnCD = rSession.pnCD; 

sControlType =*pnCD.rCurrentControl.sControlType; 
pControlParms =*pnCD.rCurrentControl.pControlParms; 
cTLShell =*pnCD.rCurrentDisplay.cTLShell; 
iShellWidth =*pnCD.rCurrentDisplay.iShellWidth; 
iShellHeight =*pnCD.rCurrentDisplay.iShellHeight; 
iDisplayWidth =*pnCD.rCurrentDisplay.iDisplayWidth; 
iDisplayHeight =*pnCD.rCurrentDisplay.iDisplayHeight; 
cTLDisplayWindow=*pnCD.rCurrentDispIay.cTLDisplayWindow; 



11D102 



ALTER_WINDOW(HANDLE=rSession.handleDisplayWindow, 
RENDER = YES, 
ORIGIN = cTLDisplayWindow, 
WIDTH = iDisplayWidth, HEIGHT = iDisplayHeight); 



L 



FOR i= 1 TO (iGenerationNumber-1) BY 1 



II Determine origin of current ghost display shell 
iNumOffset = iGenerationNumber - i; 

cTLGhostDisplay.X= cTLShell.X + iNumOffset*iCascadeDisplace_X; 
cTLGhostDisplay.Y= iTitleBarHeight+cTLShell.Y+iNumOffset*iCascadeDisplace_Y; 



// Generate ghost display 
RECTANGLE( 

ORIGIN= (cTLGhostDisplay.X, (cTLGhostDisplay.Y-iTitleBarHeight)), 
WIDTH = iShellWidth, HEIGHT= iShellHeight, 
TEXT = null, FILL = <light gray>); 



II Generate title bar for ghost display 

RECTANGLE( 
ORIGIN=(cTLGhostDisplay.X, cTLGhostDisplay.Y), 
WIDTH = iShellWidth, HEIGHT= iTitleBarHeight, 
TEXT(LEFT_JUSTIFY) = *pCurrGhostNode.sTitle, FILL ■ 



<label fill color>); 



// Fetch address of next ghost display 
pCurrGhostNode = *pCurrGhostNode.pChild; 



11D104 
11D106 
11D108 

11D110 

11D112 
11D114 



END_FOR 
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: l 

,fORMAT SPECIFIC PROCEDURE: 

i Generate Menu Display( 
l v pControlParms, rDisplayParms, rSession, llnCD); 



juuuiiypo- -> — YeS— 1 

ToolBaT^^__ \__ 



No ,f ORMAT SPECIFIC PROCEDURE: 

i Generate Toolbar Display( 
l v pControlParms, rDisplayParms, rSession, llnCD); 



"sControlType= 
^"ComboBox^ 



-Yes- 



No .FORMAT SPECIFIC PROCEDURE: 

i Generate ComboBox Display! 
' v pControlParms, rDisplayParms, rSession, llnCD); 




h , ,f ORMAT SPECIFIC PROCEDURE: 

i i Generate Dialog Display! 



pControlParms, rDisplayParms, rSession, llnCD); 

* _ 

FORMAT SPECIFIC PROCEDURE: 

i Generate "Other" Display! 

' v pControlParms, rDisplayParms, rSession, llnCD); 
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PROCEDURE ReleaseMemory( iAncestorNumber, rSession, HnAC); 



// Fetch required values 
pnCD = rSession.pnCD; 

iGenerationNumber = rSession.iGenerationNumber; 



( FOR i=iGenerationNumber DOWN_TO iAncestorNumber+1 BY -1 



pParent = *pnCD.pParent; 

IF(pParent != null) RELEASE_MEMORY(*pnCD); 

pnCD = pParent; 



END_FOR; 



// Load parameters of oldest remaining nCD node 
rSession.pnCD = pnCD; 

rSession.iGenerationNumber = iAncestorNumber; 
IF(pnCD != null) *pnCD.pChild = null; 



11E00 
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(return ) 
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PROCEDURE TerminateControlSubSystem(rSession, HnCD); 



DESTROY_WINDOW(HANDLE= rSessionParms.handleTBWindow); 



pnCD = rSession.pnCD; 

TRANSLATE_AXIS( 
FROM=*pnCDrCurrentDisplay.cFixedPoint, 
TO = rSessionParms.clnitialAxisOrigin); 

j 



// Relaese all memory dynamically allocated for display 
ReleaseMemory(0, rSession, HnCD); 



( RETURN ) 
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